unit RaHelpEditor;

interface

uses
  Classes, SysUtils, DesignIntf, DesignEditors, RaHelpEditForm;

type
  THelpEditor = class(TStringProperty)
  public
    procedure Edit; override;
    function GetValue: string; override;
    function GetAttributes: TPropertyAttributes; override;
  end;

implementation

{ THelpEditor }

procedure THelpEditor.Edit;
begin
  inherited;
  with TFormRaHelpEditor.Create(nil) do
  begin
    ShowModal;
    Free;
  end;
end;

function THelpEditor.GetAttributes: TPropertyAttributes;
begin
  Result := [paReadOnly, paDialog];
end;

function THelpEditor.GetValue: string;
begin
  Result := '[View Help]';
end;

end.
